Plotting data

Use Ctrl/CMD + P to call command palette and pick upload ASCII

Download original notebook

Once you finished, an special symbol will appear. You can work with it if it was a array of data compressed to a size of single icon.

Example data*

(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*)

Now you can copy and paste this symbol

ListLinePlot[(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*), PlotRange->Full, ImageSize->500]

(*VB[*)(FrontEndRef["1d8f3ab5-8dc2-4914-a7f1-f02da8ed0d59"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG6ZYpBknJpnqWqQkG+maWBqa6CaapxnqphkYpSRapKYYpJhaAgCK+BYD"*)(*]VB*)

TIP: try to pan and zoom into the plot using mouse

Pick a good color

ColorData[24]

ColorDataFunction[(*VB[*) 24, "Indexed", {1, 10, 1}, {RGBColor[0.9215686274509803, 0.49411764705882355, 0.43137254901960786], RGBColor[1., 0.7215686274509804, 0.2196078431372549], RGBColor[0.9490196078431372, 0.8627450980392157, 0.43529411764705883], RGBColor[0.6705882352941176, 0.8784313725490196, 0.9372549019607843], RGBColor[0.3176470588235294, 0.6549019607843137, 0.7529411764705882], RGBColor[0.12941176470588237, 0.5176470588235295, 0.6313725490196078], RGBColor[0.09019607843137255, 0.33725490196078434, 0.49411764705882355], RGBColor[0.7058823529411765, 0.49411764705882355, 0.5450980392156862], RGBColor[0.5333333333333333, 0.23529411764705882, 0.3058823529411765], RGBColor[0.8941176470588236, 0.7098039215686275, 0.7490196078431373]}[[Mod[Floor[#1], 10, 1]]] &  (*,*)(*"1:eJylk0uP2jAUhelLfahSl5W6ahdZIkEgFLqLIUASXol5FFY1sZPJxI7z8gC/bf7cODC0VK1U1Nmc3Hz32uckcb5sueu/qFQq+ScpgO/7PGM/9CxDcUAwFIyh7CCx/6yc+SCln/G4MGK8DLNCIHpqvJQy5BQfiwmPif/8jEdhXvzt7uOF36OPWRC2DMkOvpY9M8Zk/+3zafidFAOHBc/K/smzHJr6PuUIn8BbKQt31CMexwSW69TmL2dXUALflAVBeBrTw5HOM0H+nadc1uWUZ/kTA9Vr1we6/nWVPjNESVGQJ+S7l0xR24qqA6BoQF4VtXMEJVv+xs6HwCX+EasY1byWpraq7S3qVJtfW50qajfbVU/za40WxogQT44pWu+8qdype+EhC7WuNHRi7efzMZ9BNonWA51vAgMO7yLNdrvEsMDObmczuzGcwMaggEZNjBZ0fIiiyTIw7OTgIMsSm0ESJ6vQoSuRImYVm1a4Qax/y61EsIEbbhPkREm6Zvqua7hgPS2DXSbResufj/p/YVd0bILmMNIDkXp7C3vpXWCGumZObK9uj8QCwHTOkgNcWXChC1vrZTS5mcdmym51nDu0z4LvigrIpq4B5NCu6fQAvSnsP6OCx6jXHKz8vSxggmL5/diI+EX+qvyjEc3JA1m2DdY="*)(*]VB*)][2]

(*VB[*)(RGBColor[1., 0.7215686274509804, 0.2196078431372549])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3ISSxJTWMGyXMgyRcxgMEH+yJxMHhuXyQDBmfsASVLFsA="*)(*]VB*)

You can also manipulate the data, cut it or crop using Wolfram Language native tools for Lists

ListLinePlot[
  Select[(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*), (#[[1]] > 3000 && #[[1]] < 4000)&]
, PlotRange->Full, ImageSize->500, PlotStyle->(*VB[*)(RGBColor[1., 0.7215686274509804, 0.2196078431372549])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3ISSxJTWMGyXMgyRcxgMEH+yJxMHhuXyQDBmfsASVLFsA="*)(*]VB*)] 

(*VB[*)(FrontEndRef["60a06efc-957f-4e48-8c86-a59f4a017151"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKmxkkGpilpiXrWpqap+mapJpY6FokW5jpJppappkkGhiaG5oaAgCEhhVQ"*)(*]VB*)

Preview data as a table

For whom likes Origin

(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*) // TableView 

(*VB[*)(Dataset[Join@@Notebook`Kernel`Inputs`Private`store$2804301,TypeSystem`Vector[TypeSystem`Tuple[{TypeSystem`Atom[Real], TypeSystem`Atom[Real]}], 8298],<||>])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG1kap6WYGaXompilGuqaGBsZ6loYJpnoWpgaJhuamyYaJSZaAgB4ABUM"*)(*]VB*)